(etags-goto-tag-location): If match started with Ctrl-m,

compensate when setting point.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 6fc6f899e491bd64e6320716f493fa2aba8985d6..fe7367e96395b652cf00337a14c64be18740f6fc 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -975,6 +975,11 @@ See documentation of variable `tags-file-name'."
        (re-search-forward pat nil t)
        (error "`%s' not found in %s; time to rerun etags"
               pat buffer-file-name)))
+  ;; Position point at the right place
+  ;; if the search string matched an extra Ctrl-m at the beginning.
+  (and (eq selective-display t)
+       (looking-at "\^m")
+       (forward-char 1))
   (beginning-of-line))
 
 (defun etags-list-tags (file)